home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / ext / gcsound / test.rexx < prev   
OS/2 REXX Batch file  |  1999-05-14  |  1KB  |  48 lines
  1. /* test of gcsound */
  2.  
  3. /**** OPEN A SHELL IN SAME DIR AS THIS PROG, AND RX IT ****/
  4.  
  5. OPTIONS RESULTS
  6.  
  7. /* load this library for the delay() command */
  8. addlib('rexxsupport.library',0,-30,0)
  9.  
  10. address command 'run gcsound'
  11. count = 0
  12.  
  13. /* check if the gcsound port exists.. */
  14. do while ~show(ports,'gcsound')
  15.    delay(10)
  16.    count = count + 1
  17.    say 'Loading gcsound - try ' || count || '...'
  18.    if count > 5 then do      /* we waited long enough! */
  19.       say "Could not find gcsound."
  20.       say "Please open a shell, CD to it's dir and try again"
  21.       exit
  22.    end
  23. end
  24.  
  25. /* Talk to gcsound - quote the port name otherwise arexx will */
  26. /* make it upper case */
  27. Address "gcsound"
  28.  
  29. 'Load Aha.8svx aha'       /* load a sample (in our dir) */
  30. 'Play aha 1 64'           /* play it once, loud */
  31. say 'Playing...'
  32.  
  33. /* get and print some info on the sample (while it's playing) */
  34. 'Info aha'
  35. say 'Sample info (volume, speed) = ' || RESULT
  36.  
  37. /* this is a "multitasking" program. We will not know when */
  38. /* our sample has finished playing, so in order to have the */
  39. /* time to hear our sample before quiting, we delay a little */
  40.  
  41. delay(50)
  42. say 'Quiting. Bye..'
  43.  
  44. 'quit'                    /* quit gcsound */
  45.  
  46.  
  47.  
  48.